home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MAIN.DIR / Internal_86_Main.ls < prev    next >
Encoding:
Text File  |  2004-07-12  |  1.6 KB  |  71 lines
  1. global gUI
  2.  
  3. on startMovie
  4.   global gPrinterB, gBannerartB, gLeftB, gSpeakerB, gHomeB, gHelpB, gRightB
  5.   gUI = VOID
  6.   if the optionDown then
  7.     helpWindow = window("MEMMON")
  8.     helpWindow.fileName = the pathname & "MEMMON"
  9.     open(helpWindow)
  10.   end if
  11.   gPrinterB = 114
  12.   gBannerartB = 115
  13.   gLeftB = 116
  14.   gSpeakerB = 117
  15.   gHomeB = 118
  16.   gHelpB = 119
  17.   gRightB = 120
  18.   startApplication()
  19.   preloadMember(member(2))
  20. end
  21.  
  22. on stopMovie
  23.   global gOldDepth
  24.   killActorList()
  25.   set the colorDepth to gOldDepth
  26. end
  27.  
  28. on checkRollovers
  29.   puppetSprite(30, 1)
  30.   set the loc of sprite 30 to 10000
  31.   spr = 0
  32.   repeat with i = 2 to 9
  33.     if rollover(i) then
  34.       spr = i
  35.       exit repeat
  36.     end if
  37.   end repeat
  38.   if not spr then
  39.     puppetSprite(30, 0)
  40.     return 
  41.   end if
  42.   name = "roll," & member(the member of sprite spr).name
  43.   set the memberNum of sprite 30 to member(name).memberNum
  44.   set the castLibNum of sprite 30 to member(name).castLibNum
  45.   if the locH of sprite spr < 400 then
  46.     set the loc of sprite 30 to the loc of sprite spr + point(the width of sprite spr / 2, -30)
  47.   else
  48.     set the loc of sprite 30 to the loc of sprite spr + point(the width of sprite spr / 2, -30)
  49.   end if
  50. end
  51.  
  52. on changeCursors
  53.   handSpriteList = []
  54.   repeat with x = 1 to 37
  55.     if the scoreColor of sprite x = 5 then
  56.       add(handSpriteList, x)
  57.     end if
  58.   end repeat
  59.   initHandCursor("pointer", handSpriteList)
  60. end
  61.  
  62. on clearLocalHandCursors
  63.   handSpriteList = []
  64.   repeat with x = 1 to 37
  65.     if the scoreColor of sprite x = 5 then
  66.       add(handSpriteList, x)
  67.     end if
  68.   end repeat
  69.   clearHandCursor(handSpriteList)
  70. end
  71.